home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1992-09-08 | 12.8 KB | [TEXT/CCL2] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Tue Sep 8 07:06:55 1992, modified Tue Sep 8 07:06:55 1992, creator Common Lisp 2, type ASCII, 12140 bytes "object-dropper.lisp" , at 0x2fec 727 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [CCL2] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 6f 62 6a 65 63 74 | 2d 64 72 6f 70 70 65 72 |..object|-dropper|
|00000010| 2e 6c 69 73 70 00 00 00 | 00 00 00 00 00 00 00 00 |.lisp...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 2f 6c 00 | 00 02 d7 a6 d2 39 cf a6 |...../l.|.....9..|
|00000060| d2 39 cf 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.9......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d9 51 00 00 |........|.....Q..|
|00000080| 3b 3b 3b 0d 3b 3b 3b 20 | 6f 62 6a 65 63 74 2d 64 |;;;.;;; |object-d|
|00000090| 72 6f 70 70 65 72 2e 6c | 69 73 70 0d 3b 3b 3b 0d |ropper.l|isp.;;;.|
|000000a0| 0d 23 7c 0d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#|.====|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 0d 50 75 72 | 70 6f 73 65 20 3d 3d 3d |====.Pur|pose ===|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 0d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=====.==|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 0d 44 | 65 66 69 6e 65 73 20 61 |======.D|efines a|
|00000170| 20 65 78 74 65 6e 73 69 | 62 6c 65 20 6f 62 6a 65 | extensi|ble obje|
|00000180| 63 74 20 64 72 6f 70 20 | 66 75 6e 63 74 69 6f 6e |ct drop |function|
|00000190| 61 6c 69 74 79 2e 0d 0d | 47 65 6e 65 72 69 63 20 |ality...|Generic |
|000001a0| 66 75 6e 63 74 69 6f 6e | 73 20 73 70 65 63 69 66 |function|s specif|
|000001b0| 79 20 74 68 65 20 69 6e | 74 65 72 66 61 63 65 2e |y the in|terface.|
|000001c0| 0d 0d 54 68 69 73 20 70 | 72 6f 67 72 61 6d 27 73 |..This p|rogram's|
|000001d0| 20 75 73 65 72 73 20 6d | 75 73 74 20 69 6d 70 6c | users m|ust impl|
|000001e0| 65 6d 65 6e 74 20 74 68 | 65 69 72 20 6f 77 6e 20 |ement th|eir own |
|000001f0| 70 6f 6c 69 63 79 20 66 | 6f 72 20 64 65 63 69 64 |policy f|or decid|
|00000200| 69 6e 67 20 77 68 65 6e | 20 61 0d 64 72 6f 70 20 |ing when| a.drop |
|00000210| 69 73 20 69 6e 69 74 69 | 61 74 65 64 20 28 69 2e |is initi|ated (i.|
|00000220| 65 2e 20 77 68 65 6e 20 | 74 72 61 63 6b 2d 6d 6f |e. when |track-mo|
|00000230| 75 73 65 2d 66 6f 72 2d | 64 72 6f 70 70 69 6e 67 |use-for-|dropping|
|00000240| 20 69 73 20 63 61 6c 6c | 65 64 29 2e 20 53 6f 6d | is call|ed). Som|
|00000250| 65 0d 70 6f 73 73 69 62 | 69 6c 69 74 69 65 73 20 |e.possib|ilities |
|00000260| 61 72 65 3a 0d 0d 2d 20 | 57 68 65 6e 20 61 6e 20 |are:..- |When an |
|00000270| 61 6c 72 65 61 64 79 2d | 73 65 6c 65 63 74 65 64 |already-|selected|
|00000280| 20 69 74 65 6d 20 69 73 | 20 63 6c 69 63 6b 65 64 | item is| clicked|
|00000290| 20 6f 6e 2e 0d 2d 20 57 | 68 65 6e 20 61 20 63 65 | on..- W|hen a ce|
|000002a0| 72 74 61 69 6e 20 6d 6f | 64 69 66 69 65 72 20 6b |rtain mo|difier k|
|000002b0| 65 79 20 63 6f 6d 62 69 | 6e 61 74 69 6f 6e 20 69 |ey combi|nation i|
|000002c0| 73 20 70 72 65 73 65 6e | 74 20 28 65 2e 67 2e 20 |s presen|t (e.g. |
|000002d0| 63 6f 6d 6d 61 6e 64 2d | 6f 70 74 69 6f 6e 29 2e |command-|option).|
|000002e0| 0d 0d 0d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...=====|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 3d 3d 3d 0d 53 74 61 74 | 75 73 20 3d 3d 3d 3d 3d |===.Stat|us =====|
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 3d 3d 0d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |====.===|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 3d 3d 0d 52 65 | 6c 65 61 73 65 64 2e 0d |=====.Re|leased..|
|000003b0| 0d 43 6f 70 79 72 69 67 | 68 74 20 a9 20 31 39 39 |.Copyrig|ht . 199|
|000003c0| 30 2d 39 32 20 4d 61 74 | 74 68 65 77 20 43 6f 72 |0-92 Mat|thew Cor|
|000003d0| 6e 65 6c 6c 2e 20 41 6c | 6c 20 52 69 67 68 74 73 |nell. Al|l Rights|
|000003e0| 20 52 65 73 65 72 76 65 | 64 2e 20 53 65 6e 64 0d | Reserve|d. Send.|
|000003f0| 62 75 67 73 2c 20 63 6f | 6d 6d 65 6e 74 73 2c 20 |bugs, co|mments, |
|00000400| 71 75 65 73 74 69 6f 6e | 73 2c 20 61 6e 64 20 66 |question|s, and f|
|00000410| 69 78 65 73 20 74 6f 20 | 63 6f 72 6e 65 6c 6c 40 |ixes to |cornell@|
|00000420| 63 73 2e 75 6d 61 73 73 | 2e 65 64 75 2e 0d 0d 0d |cs.umass|.edu....|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 0d 43 68 61 6e 67 65 20 | 68 69 73 74 6f 72 79 20 |.Change |history |
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004b0| 3d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.======|========|
|000004c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004f0| 3d 3d 0d 30 32 2d 41 75 | 67 2d 39 32 20 6d 63 09 |==.02-Au|g-92 mc.|
|00000500| 43 72 65 61 74 65 64 2e | 0d 30 33 2d 41 75 67 2d |Created.|.03-Aug-|
|00000510| 39 32 20 6d 63 09 49 6d | 70 72 6f 76 65 64 20 64 |92 mc.Im|proved d|
|00000520| 65 6d 6f 2e 20 41 64 64 | 65 64 20 6f 70 74 69 6d |emo. Add|ed optim|
|00000530| 69 7a 65 20 73 70 65 65 | 64 2e 0d 30 36 2d 41 75 |ize spee|d..06-Au|
|00000540| 67 2d 39 32 20 6d 63 09 | 43 68 61 6e 67 65 64 20 |g-92 mc.|Changed |
|00000550| 6d 61 63 70 74 72 2d 72 | 65 67 69 6f 6e 2d 67 6c |macptr-r|egion-gl|
|00000560| 6f 62 61 6c 20 61 6e 64 | 20 74 72 61 63 6b 2d 6d |obal and| track-m|
|00000570| 6f 75 73 65 2d 66 6f 72 | 2d 64 72 6f 70 70 69 6e |ouse-for|-droppin|
|00000580| 67 20 74 6f 0d 09 09 20 | 74 61 6b 65 20 6f 62 6a |g to... |take obj|
|00000590| 65 63 74 20 61 6e 64 20 | 70 74 2d 67 6c 6f 62 61 |ect and |pt-globa|
|000005a0| 6c 2d 73 74 61 72 74 69 | 6e 67 2e 0d 31 35 2d 41 |l-starti|ng..15-A|
|000005b0| 75 67 2d 39 32 20 6d 63 | 09 55 6e 63 6f 6d 6d 65 |ug-92 mc|.Uncomme|
|000005c0| 6e 74 65 64 20 65 78 61 | 6d 70 6c 65 20 66 72 65 |nted exa|mple fre|
|000005d0| 64 2d 6d 69 78 69 6e 20 | 63 6f 64 65 2e 0d 09 09 |d-mixin |code....|
|000005e0| 4d 6f 76 65 64 20 6f 62 | 6a 65 63 74 2d 66 72 65 |Moved ob|ject-fre|
|000005f0| 64 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 20 68 6f |d-dialog|-item ho|
|00000600| 6f 6b 20 74 6f 0d 09 09 | 20 22 6f 62 6a 65 63 74 |ok to...| "object|
|00000610| 2d 46 44 49 2d 64 72 6f | 70 2d 67 6c 75 65 2e 6c |-FDI-dro|p-glue.l|
|00000620| 69 73 70 22 20 2e 0d 31 | 38 2d 41 75 67 2d 39 32 |isp" ..1|8-Aug-92|
|00000630| 20 6d 63 09 44 65 66 69 | 6e 65 64 20 61 6e 64 20 | mc.Defi|ned and |
|00000640| 65 78 70 6f 72 74 65 64 | 20 69 6e 76 65 72 74 2d |exported| invert-|
|00000650| 69 6e 73 69 64 65 2d 67 | 72 61 79 2d 66 72 61 6d |inside-g|ray-fram|
|00000660| 65 20 2e 0d 30 38 2d 53 | 65 70 2d 39 32 20 6d 63 |e ..08-S|ep-92 mc|
|00000670| 09 46 69 78 65 64 20 75 | 6e 6d 61 74 63 68 65 64 |.Fixed u|nmatched|
|00000680| 20 29 20 69 6e 20 65 78 | 61 6d 70 6c 65 20 63 6f | ) in ex|ample co|
|00000690| 64 65 2e 0d 0d 7c 23 0d | 0d 0d 28 69 6e 2d 70 61 |de...|#.|..(in-pa|
|000006a0| 63 6b 61 67 65 20 22 43 | 43 4c 22 29 0d 0d 28 72 |ckage "C|CL")..(r|
|000006b0| 65 71 75 69 72 65 20 22 | 44 52 41 47 2d 47 52 41 |equire "|DRAG-GRA|
|000006c0| 59 2d 52 45 47 49 4f 4e | 2d 4c 49 53 50 22 20 22 |Y-REGION|-LISP" "|
|000006d0| 43 43 4c 3a 55 4d 41 53 | 53 20 55 74 69 6c 73 3b |CCL:UMAS|S Utils;|
|000006e0| 64 72 61 67 2d 67 72 61 | 79 2d 72 65 67 69 6f 6e |drag-gra|y-region|
|000006f0| 2d 6c 69 73 70 22 29 0d | 0d 28 65 78 70 6f 72 74 |-lisp").|.(export|
|00000700| 20 27 28 46 2d 43 41 4e | 2d 52 45 43 45 49 56 45 | '(F-CAN|-RECEIVE|
|00000710| 2d 44 52 4f 50 0d 20 20 | 20 20 20 20 20 20 20 20 |-DROP. | |
|00000720| 49 4e 56 45 52 54 2d 44 | 52 4f 50 2d 48 49 47 48 |INVERT-D|ROP-HIGH|
|00000730| 4c 49 47 48 54 0d 20 20 | 20 20 20 20 20 20 20 20 |LIGHT. | |
|00000740| 52 45 43 45 49 56 45 2d | 44 52 4f 50 0d 20 20 20 |RECEIVE-|DROP. |
|00000750| 20 20 20 20 20 20 20 4d | 41 43 50 54 52 2d 52 45 | M|ACPTR-RE|
|00000760| 47 49 4f 4e 2d 47 4c 4f | 42 41 4c 0d 20 20 20 20 |GION-GLO|BAL. |
|00000770| 20 20 20 20 20 20 54 52 | 41 43 4b 2d 4d 4f 55 53 | TR|ACK-MOUS|
|00000780| 45 2d 46 4f 52 2d 44 52 | 4f 50 50 49 4e 47 0d 20 |E-FOR-DR|OPPING. |
|00000790| 20 20 20 20 20 20 20 20 | 20 49 4e 56 45 52 54 2d | | INVERT-|
|000007a0| 49 4e 53 49 44 45 2d 47 | 52 41 59 2d 46 52 41 4d |INSIDE-G|RAY-FRAM|
|000007b0| 45 29 29 0d 0d 0d 3b 3b | 3b 3d 3d 3d 3d 3d 3d 3d |E))...;;|;=======|
|000007c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 3b 3b 3b 20 44 65 |========|=.;;; De|
|00000800| 66 69 6e 65 20 66 75 6e | 63 74 69 6f 6e 73 20 72 |fine fun|ctions r|
|00000810| 65 6c 61 74 65 64 20 74 | 6f 20 72 65 63 65 69 76 |elated t|o receiv|
|00000820| 69 6e 67 20 64 72 6f 70 | 73 2e 0d 3b 3b 3b 3d 3d |ing drop|s..;;;==|
|00000830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000840| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0d |========|======..|
|00000870| 28 64 65 66 67 65 6e 65 | 72 69 63 20 66 2d 63 61 |(defgene|ric f-ca|
|00000880| 6e 2d 72 65 63 65 69 76 | 65 2d 64 72 6f 70 20 28 |n-receiv|e-drop (|
|00000890| 76 69 65 77 20 6f 62 6a | 65 63 74 20 70 74 2d 67 |view obj|ect pt-g|
|000008a0| 6c 6f 62 61 6c 29 0d 20 | 20 28 3a 64 6f 63 75 6d |lobal). | (:docum|
|000008b0| 65 6e 74 61 74 69 6f 6e | 20 22 52 65 74 75 72 6e |entation| "Return|
|000008c0| 73 20 6e 6f 6e 2d 6e 69 | 6c 20 69 66 20 76 69 65 |s non-ni|l if vie|
|000008d0| 77 20 63 61 6e 20 72 65 | 63 65 69 76 65 2d 64 72 |w can re|ceive-dr|
|000008e0| 6f 70 20 6f 62 6a 65 63 | 74 20 61 74 0d 70 74 2d |op objec|t at.pt-|
|000008f0| 67 6c 6f 62 61 6c 2e 22 | 29 29 0d 0d 0d 28 64 65 |global."|))...(de|
|00000900| 66 6d 65 74 68 6f 64 20 | 66 2d 63 61 6e 2d 72 65 |fmethod |f-can-re|
|00000910| 63 65 69 76 65 2d 64 72 | 6f 70 20 28 28 76 69 65 |ceive-dr|op ((vie|
|00000920| 77 20 73 69 6d 70 6c 65 | 2d 76 69 65 77 29 20 28 |w simple|-view) (|
|00000930| 6f 62 6a 65 63 74 20 74 | 29 20 28 70 74 2d 67 6c |object t|) (pt-gl|
|00000940| 6f 62 61 6c 20 69 6e 74 | 65 67 65 72 29 29 0d 20 |obal int|eger)). |
|00000950| 20 22 52 65 74 75 72 6e | 73 20 6e 69 6c 2e 22 0d | "Return|s nil.".|
|00000960| 20 20 3b 3b 0d 20 20 6e | 69 6c 29 0d 0d 0d 28 64 | ;;. n|il)...(d|
|00000970| 65 66 67 65 6e 65 72 69 | 63 20 69 6e 76 65 72 74 |efgeneri|c invert|
|00000980| 2d 64 72 6f 70 2d 68 69 | 67 68 6c 69 67 68 74 20 |-drop-hi|ghlight |
|00000990| 28 76 69 65 77 20 6f 62 | 6a 65 63 74 20 70 74 2d |(view ob|ject pt-|
|000009a0| 67 6c 6f 62 61 6c 29 0d | 20 20 28 3a 64 6f 63 75 |global).| (:docu|
|000009b0| 6d 65 6e 74 61 74 69 6f | 6e 20 22 49 6e 64 69 63 |mentatio|n "Indic|
|000009c0| 61 74 65 73 20 76 69 73 | 75 61 6c 6c 79 20 77 68 |ates vis|ually wh|
|000009d0| 61 74 20 64 72 6f 70 70 | 69 6e 67 20 6f 62 6a 65 |at dropp|ing obje|
|000009e0| 63 74 20 6d 69 67 68 74 | 20 64 6f 2e 20 49 74 20 |ct might| do. It |
|000009f0| 69 73 0d 63 72 69 74 69 | 63 61 6c 20 74 68 61 74 |is.criti|cal that|
|00000a00| 20 64 72 61 77 69 6e 67 | 20 62 65 20 64 6f 6e 65 | drawing| be done|
|00000a10| 20 69 6e 20 3a 70 61 74 | 58 4f 72 20 6d 6f 64 65 | in :pat|XOr mode|
|00000a20| 20 73 6f 20 74 68 61 74 | 20 69 74 20 63 61 6e 20 | so that| it can |
|00000a30| 62 65 20 75 6e 64 6f 6e | 65 0d 77 68 69 6c 65 20 |be undon|e.while |
|00000a40| 74 72 61 63 6b 69 6e 67 | 2e 20 50 74 2d 67 6c 6f |tracking|. Pt-glo|
|00000a50| 62 61 6c 20 69 73 20 74 | 68 65 20 63 75 72 72 65 |bal is t|he curre|
|00000a60| 6e 74 20 6d 6f 75 73 65 | 20 70 6f 73 69 74 69 6f |nt mouse| positio|
|00000a70| 6e 2e 22 29 29 0d 0d 0d | 28 64 65 66 6d 65 74 68 |n."))...|(defmeth|
|00000a80| 6f 64 20 69 6e 76 65 72 | 74 2d 64 72 6f 70 2d 68 |od inver|t-drop-h|
|00000a90| 69 67 68 6c 69 67 68 74 | 20 28 28 76 69 65 77 20 |ighlight| ((view |
|00000aa0| 73 69 6d 70 6c 65 2d 76 | 69 65 77 29 20 28 6f 62 |simple-v|iew) (ob|
|00000ab0| 6a 65 63 74 20 74 29 20 | 28 70 74 2d 67 6c 6f 62 |ject t) |(pt-glob|
|00000ac0| 61 6c 20 69 6e 74 65 67 | 65 72 29 29 0d 20 20 3b |al integ|er)). ;|
|00000ad0| 3b 0d 20 20 28 65 72 72 | 6f 72 20 22 7e 53 20 64 |;. (err|or "~S d|
|00000ae0| 6f 65 73 6e 27 74 20 6b | 6e 6f 77 20 68 6f 77 20 |oesn't k|now how |
|00000af0| 74 6f 20 69 6e 76 65 72 | 74 20 68 69 67 68 6c 69 |to inver|t highli|
|00000b00| 67 68 74 73 2e 22 20 76 | 69 65 77 29 29 0d 0d 0d |ghts." v|iew))...|
|00000b10| 28 64 65 66 67 65 6e 65 | 72 69 63 20 72 65 63 65 |(defgene|ric rece|
|00000b20| 69 76 65 2d 64 72 6f 70 | 20 28 76 69 65 77 20 6f |ive-drop| (view o|
|00000b30| 62 6a 65 63 74 20 70 74 | 2d 67 6c 6f 62 61 6c 29 |bject pt|-global)|
|00000b40| 0d 20 20 28 3a 64 6f 63 | 75 6d 65 6e 74 61 74 69 |. (:doc|umentati|
|00000b50| 6f 6e 20 22 54 61 6b 65 | 73 20 74 68 65 20 64 72 |on "Take|s the dr|
|00000b60| 6f 70 70 65 64 20 61 63 | 74 69 6f 6e 20 6f 6e 20 |opped ac|tion on |
|00000b70| 6f 62 6a 65 63 74 2e 20 | 50 74 2d 67 6c 6f 62 61 |object. |Pt-globa|
|00000b80| 6c 20 69 73 20 74 68 65 | 0d 6d 6f 75 73 65 20 70 |l is the|.mouse p|
|00000b90| 6f 73 69 74 69 6f 6e 20 | 77 68 65 6e 20 69 74 20 |osition |when it |
|00000ba0| 77 61 73 20 72 65 6c 65 | 61 73 65 64 2e 22 29 29 |was rele|ased."))|
|00000bb0| 0d 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 72 65 |...(defm|ethod re|
|00000bc0| 63 65 69 76 65 2d 64 72 | 6f 70 20 28 28 76 69 65 |ceive-dr|op ((vie|
|00000bd0| 77 20 73 69 6d 70 6c 65 | 2d 76 69 65 77 29 20 28 |w simple|-view) (|
|00000be0| 6f 62 6a 65 63 74 20 74 | 29 20 28 70 74 2d 67 6c |object t|) (pt-gl|
|00000bf0| 6f 62 61 6c 20 69 6e 74 | 65 67 65 72 29 29 0d 20 |obal int|eger)). |
|00000c00| 20 3b 3b 0d 20 20 28 65 | 72 72 6f 72 20 22 7e 53 | ;;. (e|rror "~S|
|00000c10| 20 64 6f 65 73 6e 27 74 | 20 6b 6e 6f 77 20 68 6f | doesn't| know ho|
|00000c20| 77 20 74 6f 20 72 65 63 | 65 69 76 65 20 64 72 6f |w to rec|eive dro|
|00000c30| 70 73 2e 22 20 76 69 65 | 77 29 29 0d 0d 0d 3b 3b |ps." vie|w))...;;|
|00000c40| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|00000c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c80| 3d 0d 3b 3b 3b 20 44 65 | 66 69 6e 65 20 66 75 6e |=.;;; De|fine fun|
|00000c90| 63 74 69 6f 6e 73 20 72 | 65 6c 61 74 65 64 20 74 |ctions r|elated t|
|00000ca0| 6f 20 73 74 61 72 74 69 | 6e 67 20 64 72 6f 70 73 |o starti|ng drops|
|00000cb0| 2e 0d 3b 3b 3b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..;;;===|========|
|00000cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cf0| 3d 3d 3d 3d 3d 0d 0d 28 | 64 65 66 67 65 6e 65 72 |=====..(|defgener|
|00000d00| 69 63 20 6d 61 63 70 74 | 72 2d 72 65 67 69 6f 6e |ic macpt|r-region|
|00000d10| 2d 67 6c 6f 62 61 6c 20 | 28 76 69 65 77 20 6f 62 |-global |(view ob|
|00000d20| 6a 65 63 74 20 70 74 2d | 67 6c 6f 62 61 6c 2d 73 |ject pt-|global-s|
|00000d30| 74 61 72 74 69 6e 67 29 | 0d 20 20 28 3a 64 6f 63 |tarting)|. (:doc|
|00000d40| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 22 52 65 74 75 |umentati|on "Retu|
|00000d50| 72 6e 73 20 74 68 65 20 | 72 65 67 69 6f 6e 20 74 |rns the |region t|
|00000d60| 6f 20 62 65 20 75 73 65 | 64 20 77 68 69 6c 65 0d |o be use|d while.|
|00000d70| 74 72 61 63 6b 2d 6d 6f | 75 73 65 2d 66 6f 72 2d |track-mo|use-for-|
|00000d80| 64 72 6f 70 70 69 6e 67 | 20 69 73 20 72 75 6e 6e |dropping| is runn|
|00000d90| 69 6e 67 2c 20 77 68 69 | 63 68 20 64 69 73 70 6f |ing, whi|ch dispo|
|00000da0| 73 65 73 20 6f 66 20 74 | 68 65 20 72 65 67 69 6f |ses of t|he regio|
|00000db0| 6e 20 77 68 65 6e 0d 69 | 74 27 73 20 74 68 72 6f |n when.i|t's thro|
|00000dc0| 75 67 68 2e 20 4f 62 6a | 65 63 74 20 69 73 20 74 |ugh. Obj|ect is t|
|00000dd0| 68 65 20 6f 62 6a 65 63 | 74 20 62 65 69 6e 67 20 |he objec|t being |
|00000de0| 63 61 72 72 69 65 64 20 | 61 6e 64 20 70 74 2d 67 |carried |and pt-g|
|00000df0| 6c 6f 62 61 6c 2d 73 74 | 61 72 74 69 6e 67 0d 69 |lobal-st|arting.i|
|00000e00| 73 20 74 68 65 20 67 6c | 6f 62 61 6c 20 70 6f 69 |s the gl|obal poi|
|00000e10| 6e 74 20 74 68 65 20 6d | 6f 75 73 65 20 77 65 6e |nt the m|ouse wen|
|00000e20| 74 20 64 6f 77 6e 20 61 | 74 20 77 68 65 6e 20 74 |t down a|t when t|
|00000e30| 72 61 63 6b 69 6e 67 20 | 73 74 61 72 74 65 64 2e |racking |started.|
|00000e40| 22 29 29 0d 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |"))...(d|efmethod|
|00000e50| 20 6d 61 63 70 74 72 2d | 72 65 67 69 6f 6e 2d 67 | macptr-|region-g|
|00000e60| 6c 6f 62 61 6c 20 28 28 | 76 69 65 77 20 73 69 6d |lobal ((|view sim|
|00000e70| 70 6c 65 2d 76 69 65 77 | 29 0d 20 20 20 20 20 20 |ple-view|). |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 28 6f 62 6a 65 | | (obje|
|00000ea0| 63 74 20 74 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ct t). | |
|00000eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ec0| 20 20 20 20 20 20 20 28 | 70 74 2d 67 6c 6f 62 61 | (|pt-globa|
|00000ed0| 6c 2d 73 74 61 72 74 69 | 6e 67 20 69 6e 74 65 67 |l-starti|ng integ|
|00000ee0| 65 72 29 29 0d 20 20 22 | 52 65 74 75 72 6e 73 20 |er)). "|Returns |
|00000ef0| 61 20 72 65 63 74 61 6e | 67 75 6c 61 72 20 72 65 |a rectan|gular re|
|00000f00| 67 69 6f 6e 20 74 68 61 | 74 20 6d 61 74 63 68 65 |gion tha|t matche|
|00000f10| 73 20 76 69 65 77 27 73 | 20 73 69 7a 65 20 61 6e |s view's| size an|
|00000f20| 64 20 70 6f 73 69 74 69 | 6f 6e 2e 22 0d 20 20 28 |d positi|on.". (|
|00000f30| 64 65 63 6c 61 72 65 20 | 28 6f 70 74 69 6d 69 7a |declare |(optimiz|
|00000f40| 65 20 73 70 65 65 64 29 | 0d 20 20 20 20 20 20 20 |e speed)|. |
|00000f50| 20 20 20 20 28 69 67 6e | 6f 72 65 20 70 74 2d 67 | (ign|ore pt-g|
|00000f60| 6c 6f 62 61 6c 2d 73 74 | 61 72 74 69 6e 67 29 29 |lobal-st|arting))|
|00000f70| 0d 20 20 3b 3b 0d 20 20 | 28 6c 65 74 2a 20 28 28 |. ;;. |(let* ((|
|00000f80| 6d 61 63 70 74 72 2d 72 | 65 67 69 6f 6e 2d 67 6c |macptr-r|egion-gl|
|00000f90| 6f 62 61 6c 20 28 23 5f | 4e 65 77 52 67 6e 29 29 |obal (#_|NewRgn))|
|00000fa0| 0d 20 20 20 20 20 20 20 | 20 20 28 70 74 2d 74 6f |. | (pt-to|
|00000fb0| 70 2d 6c 65 66 74 20 28 | 6c 6f 63 61 6c 2d 74 6f |p-left (|local-to|
|00000fc0| 2d 67 6c 6f 62 61 6c 20 | 76 69 65 77 20 30 29 29 |-global |view 0))|
|00000fd0| 0d 20 20 20 20 20 20 20 | 20 20 28 70 74 2d 62 6f |. | (pt-bo|
|00000fe0| 74 74 6f 6d 2d 72 69 67 | 68 74 20 28 6c 6f 63 61 |ttom-rig|ht (loca|
|00000ff0| 6c 2d 74 6f 2d 67 6c 6f | 62 61 6c 20 76 69 65 77 |l-to-glo|bal view|
|00001000| 20 28 76 69 65 77 2d 73 | 69 7a 65 20 76 69 65 77 | (view-s|ize view|
|00001010| 29 29 29 29 0d 20 20 20 | 20 28 72 6c 65 74 20 28 |)))). | (rlet (|
|00001020| 28 72 65 63 74 20 3a 72 | 65 63 74 20 3a 74 6f 70 |(rect :r|ect :top|
|00001030| 4c 65 66 74 20 70 74 2d | 74 6f 70 2d 6c 65 66 74 |Left pt-|top-left|
|00001040| 20 3a 62 6f 74 74 6f 6d | 52 69 67 68 74 20 70 74 | :bottom|Right pt|
|00001050| 2d 62 6f 74 74 6f 6d 2d | 72 69 67 68 74 29 29 0d |-bottom-|right)).|
|00001060| 20 20 20 20 20 20 28 23 | 5f 52 65 63 74 52 67 6e | (#|_RectRgn|
|00001070| 20 6d 61 63 70 74 72 2d | 72 65 67 69 6f 6e 2d 67 | macptr-|region-g|
|00001080| 6c 6f 62 61 6c 20 72 65 | 63 74 29 0d 20 20 20 20 |lobal re|ct). |
|00001090| 20 20 6d 61 63 70 74 72 | 2d 72 65 67 69 6f 6e 2d | macptr|-region-|
|000010a0| 67 6c 6f 62 61 6c 29 29 | 29 0d 0d 0d 28 64 65 66 |global))|)...(def|
|000010b0| 67 65 6e 65 72 69 63 20 | 74 72 61 63 6b 2d 6d 6f |generic |track-mo|
|000010c0| 75 73 65 2d 66 6f 72 2d | 64 72 6f 70 70 69 6e 67 |use-for-|dropping|
|000010d0| 20 28 76 69 65 77 2d 73 | 74 61 72 74 69 6e 67 20 | (view-s|tarting |
|000010e0| 6f 62 6a 65 63 74 20 70 | 74 2d 67 6c 6f 62 61 6c |object p|t-global|
|000010f0| 2d 73 74 61 72 74 69 6e | 67 0d 20 20 20 20 20 20 |-startin|g. |
|00001100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 26 6b | | &k|
|00001130| 65 79 20 63 75 72 73 6f | 72 29 0d 20 20 28 3a 64 |ey curso|r). (:d|
|00001140| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 22 49 6e |ocumenta|tion "In|
|00001150| 69 74 69 61 74 65 73 20 | 6d 6f 75 73 65 20 74 72 |itiates |mouse tr|
|00001160| 61 63 6b 69 6e 67 20 66 | 72 6f 6d 20 76 69 65 77 |acking f|rom view|
|00001170| 2d 73 74 61 72 74 69 6e | 67 2e 20 54 68 65 20 6c |-startin|g. The l|
|00001180| 6f 6f 70 0d 27 63 61 72 | 72 69 65 73 27 20 6f 62 |oop.'car|ries' ob|
|00001190| 6a 65 63 74 20 62 79 20 | 63 61 6c 6c 69 6e 67 20 |ject by |calling |
|000011a0| 69 6e 76 65 72 74 2d 64 | 72 6f 70 2d 68 69 67 68 |invert-d|rop-high|
|000011b0| 6c 69 67 68 74 20 6f 6e | 20 76 69 65 77 73 20 74 |light on| views t|
|000011c0| 68 61 74 0d 66 2d 63 61 | 6e 2d 72 65 63 65 69 76 |hat.f-ca|n-receiv|
|000011d0| 65 2d 64 72 6f 70 2e 20 | 49 66 20 74 68 65 20 6d |e-drop. |If the m|
|000011e0| 6f 75 73 65 20 69 73 20 | 72 65 6c 65 61 73 65 64 |ouse is |released|
|000011f0| 20 6f 76 65 72 20 6f 6e | 65 20 74 68 61 74 20 63 | over on|e that c|
|00001200| 61 6e 2c 20 74 68 65 6e | 0d 72 65 63 65 69 76 65 |an, then|.receive|
|00001210| 2d 64 72 6f 70 20 69 73 | 20 63 61 6c 6c 65 64 20 |-drop is| called |
|00001220| 6f 6e 20 69 74 2e 20 50 | 74 2d 67 6c 6f 62 61 6c |on it. P|t-global|
|00001230| 2d 73 74 61 72 74 69 6e | 67 20 69 73 20 74 68 65 |-startin|g is the|
|00001240| 20 67 6c 6f 62 61 6c 20 | 70 6f 69 6e 74 20 74 68 | global |point th|
|00001250| 65 0d 6d 6f 75 73 65 20 | 77 65 6e 74 20 64 6f 77 |e.mouse |went dow|
|00001260| 6e 20 61 74 20 77 68 65 | 6e 20 74 72 61 63 6b 69 |n at whe|n tracki|
|00001270| 6e 67 20 73 74 61 72 74 | 65 64 2e 20 43 75 72 73 |ng start|ed. Curs|
|00001280| 6f 72 20 69 73 20 61 20 | 6d 61 63 70 74 72 20 6f |or is a |macptr o|
|00001290| 66 20 61 20 63 75 72 73 | 6f 72 0d 75 73 65 64 20 |f a curs|or.used |
|000012a0| 64 75 72 69 6e 67 20 74 | 72 61 63 6b 69 6e 67 2c |during t|racking,|
|000012b0| 20 61 6e 64 20 64 65 66 | 61 75 6c 74 73 20 74 6f | and def|aults to|
|000012c0| 20 2a 61 72 72 6f 77 2d | 63 75 72 73 6f 72 2a 2e | *arrow-|cursor*.|
|000012d0| 20 52 65 74 75 72 6e 73 | 20 74 68 65 20 76 69 65 | Returns| the vie|
|000012e0| 77 0d 64 72 6f 70 70 65 | 64 20 6f 6e 2e 22 29 29 |w.droppe|d on."))|
|000012f0| 0d 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 74 72 |...(defm|ethod tr|
|00001300| 61 63 6b 2d 6d 6f 75 73 | 65 2d 66 6f 72 2d 64 72 |ack-mous|e-for-dr|
|00001310| 6f 70 70 69 6e 67 20 28 | 28 76 69 65 77 2d 73 74 |opping (|(view-st|
|00001320| 61 72 74 69 6e 67 20 73 | 69 6d 70 6c 65 2d 76 69 |arting s|imple-vi|
|00001330| 65 77 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ew). | |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001350| 20 20 20 20 20 20 20 20 | 20 28 6f 62 6a 65 63 74 | | (object|
|00001360| 20 74 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | t). | |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001380| 20 20 20 20 20 20 20 20 | 20 28 70 74 2d 67 6c 6f | | (pt-glo|
|00001390| 62 61 6c 2d 73 74 61 72 | 74 69 6e 67 20 69 6e 74 |bal-star|ting int|
|000013a0| 65 67 65 72 29 0d 20 20 | 20 20 20 20 20 20 20 20 |eger). | |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 26 6b 65 79 20 | | &key |
|000013d0| 28 63 75 72 73 6f 72 20 | 2a 61 72 72 6f 77 2d 63 |(cursor |*arrow-c|
|000013e0| 75 72 73 6f 72 2a 29 29 | 0d 20 20 28 64 65 63 6c |ursor*))|. (decl|
|000013f0| 61 72 65 20 28 6f 70 74 | 69 6d 69 7a 65 20 73 70 |are (opt|imize sp|
|00001400| 65 65 64 29 29 0d 20 20 | 3b 3b 0d 20 20 28 6c 65 |eed)). |;;. (le|
|00001410| 74 2a 20 28 28 6d 61 63 | 70 74 72 2d 72 65 67 69 |t* ((mac|ptr-regi|
|00001420| 6f 6e 2d 67 6c 6f 62 61 | 6c 0d 20 20 20 20 20 20 |on-globa|l. |
|00001430| 20 20 20 20 28 6d 61 63 | 70 74 72 2d 72 65 67 69 | (mac|ptr-regi|
|00001440| 6f 6e 2d 67 6c 6f 62 61 | 6c 20 76 69 65 77 2d 73 |on-globa|l view-s|
|00001450| 74 61 72 74 69 6e 67 20 | 6f 62 6a 65 63 74 20 70 |tarting |object p|
|00001460| 74 2d 67 6c 6f 62 61 6c | 2d 73 74 61 72 74 69 6e |t-global|-startin|
|00001470| 67 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 70 74 |g)). | (pt|
|00001480| 2d 67 6c 6f 62 61 6c 2d | 6c 61 73 74 20 28 76 69 |-global-|last (vi|
|00001490| 65 77 2d 6d 6f 75 73 65 | 2d 70 6f 73 69 74 69 6f |ew-mouse|-positio|
|000014a0| 6e 20 6e 69 6c 29 29 0d | 20 20 20 20 20 20 20 20 |n nil)).| |
|000014b0| 20 28 76 69 65 77 2d 6c | 61 73 74 20 6e 69 6c 29 | (view-l|ast nil)|
|000014c0| 0d 20 20 20 20 20 20 20 | 20 20 28 76 69 65 77 2d |. | (view-|
|000014d0| 63 75 72 72 65 6e 74 20 | 28 66 69 6e 64 2d 76 69 |current |(find-vi|
|000014e0| 65 77 2d 63 6f 6e 74 61 | 69 6e 69 6e 67 2d 70 6f |ew-conta|ining-po|
|000014f0| 69 6e 74 20 6e 69 6c 20 | 70 74 2d 67 6c 6f 62 61 |int nil |pt-globa|
|00001500| 6c 2d 6c 61 73 74 29 29 | 29 0d 20 20 20 20 3b 3b |l-last))|). ;;|
|00001510| 0d 20 20 20 20 3b 3b 20 | 53 68 6f 75 6c 64 20 6e |. ;; |Should n|
|00001520| 6f 74 20 63 61 6c 6c 20 | 66 2d 63 61 6e 2d 72 65 |ot call |f-can-re|
|00001530| 63 65 69 76 65 2d 64 72 | 6f 70 2c 20 69 6e 76 65 |ceive-dr|op, inve|
|00001540| 72 74 2d 64 72 6f 70 2d | 68 69 67 68 6c 69 67 68 |rt-drop-|highligh|
|00001550| 74 2c 20 6f 72 0d 20 20 | 20 20 3b 3b 20 20 69 6e |t, or. | ;; in|
|00001560| 76 65 72 74 2d 64 72 6f | 70 2d 68 69 67 68 6c 69 |vert-dro|p-highli|
|00001570| 67 68 74 20 6f 6e 20 76 | 69 65 77 2d 73 74 61 72 |ght on v|iew-star|
|00001580| 74 69 6e 67 2e 20 46 69 | 78 21 0d 20 20 20 20 3b |ting. Fi|x!. ;|
|00001590| 3b 0d 20 20 20 20 28 64 | 72 61 67 2d 67 72 61 79 |;. (d|rag-gray|
|000015a0| 2d 72 65 67 69 6f 6e 2d | 6c 69 73 70 0d 20 20 20 |-region-|lisp. |
|000015b0| 20 20 6d 61 63 70 74 72 | 2d 72 65 67 69 6f 6e 2d | macptr|-region-|
|000015c0| 67 6c 6f 62 61 6c 0d 20 | 20 20 20 20 23 27 28 6c |global. | #'(l|
|000015d0| 61 6d 62 64 61 20 28 70 | 74 2d 67 6c 6f 62 61 6c |ambda (p|t-global|
|000015e0| 2d 63 75 72 72 65 6e 74 | 29 0d 20 20 20 20 20 20 |-current|). |
|000015f0| 20 20 20 28 73 65 74 66 | 20 76 69 65 77 2d 63 75 | (setf| view-cu|
|00001600| 72 72 65 6e 74 20 28 66 | 69 6e 64 2d 76 69 65 77 |rrent (f|ind-view|
|00001610| 2d 63 6f 6e 74 61 69 6e | 69 6e 67 2d 70 6f 69 6e |-contain|ing-poin|
|00001620| 74 20 6e 69 6c 20 70 74 | 2d 67 6c 6f 62 61 6c 2d |t nil pt|-global-|
|00001630| 63 75 72 72 65 6e 74 29 | 29 0d 20 20 20 20 20 20 |current)|). |
|00001640| 20 20 20 3b 3b 0d 20 20 | 20 20 20 20 20 20 20 3b | ;;. | ;|
|00001650| 3b 20 54 68 65 72 65 20 | 61 72 65 20 74 77 6f 20 |; There |are two |
|00001660| 69 6e 74 65 72 65 73 74 | 69 6e 67 20 63 61 73 65 |interest|ing case|
|00001670| 73 2e 20 28 49 6e 20 65 | 69 74 68 65 72 20 63 61 |s. (In e|ither ca|
|00001680| 73 65 20 77 65 20 61 72 | 65 6e 27 74 0d 20 20 20 |se we ar|en't. |
|00001690| 20 20 20 20 20 20 3b 3b | 20 20 69 6e 74 65 72 65 | ;;| intere|
|000016a0| 73 74 65 64 20 69 6e 20 | 6d 6f 76 69 6e 67 20 69 |sted in |moving i|
|000016b0| 6e 74 6f 20 6f 72 20 6f | 75 74 20 6f 66 20 76 69 |nto or o|ut of vi|
|000016c0| 65 77 2d 73 74 61 72 74 | 2e 29 0d 20 20 20 20 20 |ew-start|.). |
|000016d0| 20 20 20 20 3b 3b 0d 20 | 20 20 20 20 20 20 20 20 | ;;. | |
|000016e0| 3b 3b 20 2d 20 54 68 65 | 20 6d 6f 75 73 65 20 6d |;; - The| mouse m|
|000016f0| 6f 76 65 64 20 6f 75 74 | 20 6f 66 20 76 69 65 77 |oved out| of view|
|00001700| 2d 6c 61 73 74 2e 0d 20 | 20 20 20 20 20 20 20 20 |-last.. | |
|00001710| 3b 3b 20 2d 20 54 68 65 | 20 6d 6f 75 73 65 20 6d |;; - The| mouse m|
|00001720| 6f 76 65 64 20 69 6e 74 | 6f 20 76 69 65 77 2d 63 |oved int|o view-c|
|00001730| 75 72 72 65 6e 74 2e 0d | 20 20 20 20 20 20 20 20 |urrent..| |
|00001740| 20 3b 3b 0d 20 20 20 20 | 20 20 20 20 20 3b 3b 20 | ;;. | ;; |
|00001750| 49 6e 76 65 72 74 20 28 | 64 65 68 69 67 68 6c 69 |Invert (|dehighli|
|00001760| 67 68 74 29 20 74 68 65 | 20 6f 6c 64 2e 0d 20 20 |ght) the| old.. |
|00001770| 20 20 20 20 20 20 20 28 | 77 68 65 6e 20 28 61 6e | (|when (an|
|00001780| 64 20 76 69 65 77 2d 6c | 61 73 74 0d 20 20 20 20 |d view-l|ast. |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000017a0| 28 6e 65 71 20 76 69 65 | 77 2d 6c 61 73 74 20 76 |(neq vie|w-last v|
|000017b0| 69 65 77 2d 73 74 61 72 | 74 69 6e 67 29 0d 20 20 |iew-star|ting). |
|000017c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000017d0| 20 20 28 66 2d 63 61 6e | 2d 72 65 63 65 69 76 65 | (f-can|-receive|
|000017e0| 2d 64 72 6f 70 20 76 69 | 65 77 2d 6c 61 73 74 20 |-drop vi|ew-last |
|000017f0| 6f 62 6a 65 63 74 20 70 | 74 2d 67 6c 6f 62 61 6c |object p|t-global|
|00001800| 2d 6c 61 73 74 29 29 0d | 20 20 20 20 20 20 20 20 |-last)).| |
|00001810| 20 20 20 28 69 6e 76 65 | 72 74 2d 64 72 6f 70 2d | (inve|rt-drop-|
|00001820| 68 69 67 68 6c 69 67 68 | 74 20 76 69 65 77 2d 6c |highligh|t view-l|
|00001830| 61 73 74 20 6f 62 6a 65 | 63 74 20 70 74 2d 67 6c |ast obje|ct pt-gl|
|00001840| 6f 62 61 6c 2d 6c 61 73 | 74 29 29 0d 20 20 20 20 |obal-las|t)). |
|00001850| 20 20 20 20 20 3b 3b 20 | 49 6e 76 65 72 74 20 28 | ;; |Invert (|
|00001860| 68 69 67 68 6c 69 67 68 | 74 29 20 74 68 65 20 6e |highligh|t) the n|
|00001870| 65 77 2e 0d 20 20 20 20 | 20 20 20 20 20 28 77 68 |ew.. | (wh|
|00001880| 65 6e 20 28 61 6e 64 20 | 76 69 65 77 2d 63 75 72 |en (and |view-cur|
|00001890| 72 65 6e 74 0d 20 20 20 | 20 20 20 20 20 20 20 20 |rent. | |
|000018a0| 20 20 20 20 20 20 20 20 | 20 28 6e 65 71 20 76 69 | | (neq vi|
|000018b0| 65 77 2d 63 75 72 72 65 | 6e 74 20 76 69 65 77 2d |ew-curre|nt view-|
|000018c0| 73 74 61 72 74 69 6e 67 | 29 0d 20 20 20 20 20 20 |starting|). |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 66 | | (f|
|000018e0| 2d 63 61 6e 2d 72 65 63 | 65 69 76 65 2d 64 72 6f |-can-rec|eive-dro|
|000018f0| 70 20 76 69 65 77 2d 63 | 75 72 72 65 6e 74 20 6f |p view-c|urrent o|
|00001900| 62 6a 65 63 74 20 70 74 | 2d 67 6c 6f 62 61 6c 2d |bject pt|-global-|
|00001910| 63 75 72 72 65 6e 74 29 | 29 0d 20 20 20 20 20 20 |current)|). |
|00001920| 20 20 20 20 20 28 69 6e | 76 65 72 74 2d 64 72 6f | (in|vert-dro|
|00001930| 70 2d 68 69 67 68 6c 69 | 67 68 74 20 76 69 65 77 |p-highli|ght view|
|00001940| 2d 63 75 72 72 65 6e 74 | 20 6f 62 6a 65 63 74 20 |-current| object |
|00001950| 70 74 2d 67 6c 6f 62 61 | 6c 2d 63 75 72 72 65 6e |pt-globa|l-curren|
|00001960| 74 29 29 0d 20 20 20 20 | 20 20 20 20 20 3b 3b 0d |t)). | ;;.|
|00001970| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 66 20 70 | | (setf p|
|00001980| 74 2d 67 6c 6f 62 61 6c | 2d 6c 61 73 74 20 70 74 |t-global|-last pt|
|00001990| 2d 67 6c 6f 62 61 6c 2d | 63 75 72 72 65 6e 74 0d |-global-|current.|
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 76 | | v|
|000019b0| 69 65 77 2d 6c 61 73 74 | 20 76 69 65 77 2d 63 75 |iew-last| view-cu|
|000019c0| 72 72 65 6e 74 29 29 0d | 20 20 20 20 20 70 74 2d |rrent)).| pt-|
|000019d0| 67 6c 6f 62 61 6c 2d 6c | 61 73 74 0d 20 20 20 20 |global-l|ast. |
|000019e0| 20 3a 63 75 72 73 6f 72 | 20 63 75 72 73 6f 72 29 | :cursor| cursor)|
|000019f0| 0d 20 20 20 20 3b 3b 20 | 44 69 73 70 6f 73 65 2c |. ;; |Dispose,|
|00001a00| 20 61 6e 64 20 69 6e 76 | 65 72 74 20 6c 61 73 74 | and inv|ert last|
|00001a10| 20 61 6e 64 20 63 61 6c | 6c 20 72 65 63 65 69 76 | and cal|l receiv|
|00001a20| 65 2d 64 72 6f 70 20 6f | 6e 20 76 69 65 77 2d 6c |e-drop o|n view-l|
|00001a30| 61 73 74 2c 20 69 66 20 | 69 74 0d 20 20 20 20 3b |ast, if |it. ;|
|00001a40| 3b 20 20 77 61 73 6e 27 | 74 20 76 69 65 77 2d 73 |; wasn'|t view-s|
|00001a50| 74 61 72 74 69 6e 67 2e | 0d 20 20 20 20 28 23 5f |tarting.|. (#_|
|00001a60| 44 69 73 70 6f 73 65 52 | 67 6e 20 6d 61 63 70 74 |DisposeR|gn macpt|
|00001a70| 72 2d 72 65 67 69 6f 6e | 2d 67 6c 6f 62 61 6c 29 |r-region|-global)|
|00001a80| 0d 20 20 20 20 28 77 68 | 65 6e 20 28 61 6e 64 20 |. (wh|en (and |
|00001a90| 76 69 65 77 2d 6c 61 73 | 74 0d 20 20 20 20 20 20 |view-las|t. |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 28 6e 65 71 20 76 69 | | (neq vi|
|00001ab0| 65 77 2d 6c 61 73 74 20 | 76 69 65 77 2d 73 74 61 |ew-last |view-sta|
|00001ac0| 72 74 69 6e 67 29 0d 20 | 20 20 20 20 20 20 20 20 |rting). | |
|00001ad0| 20 20 20 20 20 20 28 66 | 2d 63 61 6e 2d 72 65 63 | (f|-can-rec|
|00001ae0| 65 69 76 65 2d 64 72 6f | 70 20 76 69 65 77 2d 6c |eive-dro|p view-l|
|00001af0| 61 73 74 20 6f 62 6a 65 | 63 74 20 70 74 2d 67 6c |ast obje|ct pt-gl|
|00001b00| 6f 62 61 6c 2d 6c 61 73 | 74 29 29 0d 20 20 20 20 |obal-las|t)). |
|00001b10| 20 20 28 69 6e 76 65 72 | 74 2d 64 72 6f 70 2d 68 | (inver|t-drop-h|
|00001b20| 69 67 68 6c 69 67 68 74 | 20 76 69 65 77 2d 6c 61 |ighlight| view-la|
|00001b30| 73 74 20 6f 62 6a 65 63 | 74 20 70 74 2d 67 6c 6f |st objec|t pt-glo|
|00001b40| 62 61 6c 2d 6c 61 73 74 | 29 0d 20 20 20 20 20 20 |bal-last|). |
|00001b50| 28 72 65 63 65 69 76 65 | 2d 64 72 6f 70 20 76 69 |(receive|-drop vi|
|00001b60| 65 77 2d 6c 61 73 74 20 | 6f 62 6a 65 63 74 20 70 |ew-last |object p|
|00001b70| 74 2d 67 6c 6f 62 61 6c | 2d 6c 61 73 74 29 29 29 |t-global|-last)))|
|00001b80| 29 0d 0d 0d 28 75 6e 6c | 65 73 73 20 28 66 62 6f |)...(unl|ess (fbo|
|00001b90| 75 6e 64 70 20 27 6c 6f | 63 61 6c 2d 74 6f 2d 67 |undp 'lo|cal-to-g|
|00001ba0| 6c 6f 62 61 6c 29 0d 20 | 20 3b 3b 20 46 72 6f 6d |lobal). | ;; From|
|00001bb0| 20 22 71 75 69 63 6b 64 | 72 61 77 2e 6c 69 73 70 | "quickd|raw.lisp|
|00001bc0| 22 20 3a 0d 20 20 28 64 | 65 66 6d 65 74 68 6f 64 |" :. (d|efmethod|
|00001bd0| 20 6c 6f 63 61 6c 2d 74 | 6f 2d 67 6c 6f 62 61 6c | local-t|o-global|
|00001be0| 20 28 28 76 69 65 77 20 | 73 69 6d 70 6c 65 2d 76 | ((view |simple-v|
|00001bf0| 69 65 77 29 20 68 20 26 | 6f 70 74 69 6f 6e 61 6c |iew) h &|optional|
|00001c00| 20 76 29 0d 20 20 20 20 | 28 77 69 74 68 2d 66 6f | v). |(with-fo|
|00001c10| 63 75 73 65 64 2d 76 69 | 65 77 20 76 69 65 77 0d |cused-vi|ew view.|
|00001c20| 20 20 20 20 20 20 28 72 | 6c 65 74 20 28 28 70 20 | (r|let ((p |
|00001c30| 3a 70 6f 69 6e 74 29 29 | 0d 20 20 20 20 20 20 20 |:point))|. |
|00001c40| 20 28 25 70 75 74 2d 6c | 6f 6e 67 20 70 20 28 6d | (%put-l|ong p (m|
|00001c50| 61 6b 65 2d 70 6f 69 6e | 74 20 68 20 76 29 29 0d |ake-poin|t h v)).|
|00001c60| 20 20 20 20 20 20 20 20 | 28 23 5f 4c 6f 63 61 6c | |(#_Local|
|00001c70| 54 6f 47 6c 6f 62 61 6c | 20 70 29 0d 20 20 20 20 |ToGlobal| p). |
|00001c80| 20 20 20 20 28 25 67 65 | 74 2d 6c 6f 6e 67 20 70 | (%ge|t-long p|
|00001c90| 29 29 29 29 29 0d 0d 3b | 3b 3b 3d 3d 3d 3d 3d 3d |)))))..;|;;======|
|00001ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001cd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 3b 3b 3b 20 54 |========|==.;;; T|
|00001ce0| 65 6c 6c 20 66 72 65 64 | 2d 6d 69 78 69 6e 73 20 |ell fred|-mixins |
|00001cf0| 68 6f 77 20 74 6f 20 72 | 65 63 65 69 76 65 20 64 |how to r|eceive d|
|00001d00| 72 6f 70 73 2e 0d 3b 3b | 3b 3d 3d 3d 3d 3d 3d 3d |rops..;;|;=======|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 28 64 65 66 6d |========|=..(defm|
|00001d50| 65 74 68 6f 64 20 66 2d | 63 61 6e 2d 72 65 63 65 |ethod f-|can-rece|
|00001d60| 69 76 65 2d 64 72 6f 70 | 20 28 28 76 69 65 77 20 |ive-drop| ((view |
|00001d70| 66 72 65 64 2d 6d 69 78 | 69 6e 29 20 28 6f 62 6a |fred-mix|in) (obj|
|00001d80| 65 63 74 20 74 29 20 28 | 70 74 2d 67 6c 6f 62 61 |ect t) (|pt-globa|
|00001d90| 6c 20 69 6e 74 65 67 65 | 72 29 29 0d 20 20 28 64 |l intege|r)). (d|
|00001da0| 65 63 6c 61 72 65 20 28 | 69 67 6e 6f 72 65 20 6f |eclare (|ignore o|
|00001db0| 62 6a 65 63 74 29 29 0d | 20 20 3b 3b 0d 20 20 28 |bject)).| ;;. (|
|00001dc0| 66 72 65 64 2d 70 6f 69 | 6e 74 2d 70 6f 73 69 74 |fred-poi|nt-posit|
|00001dd0| 69 6f 6e 20 76 69 65 77 | 20 28 67 6c 6f 62 61 6c |ion view| (global|
|00001de0| 2d 74 6f 2d 6c 6f 63 61 | 6c 20 76 69 65 77 20 70 |-to-loca|l view p|
|00001df0| 74 2d 67 6c 6f 62 61 6c | 29 29 29 0d 0d 0d 28 75 |t-global|)))...(u|
|00001e00| 6e 6c 65 73 73 20 28 66 | 62 6f 75 6e 64 70 20 27 |nless (f|boundp '|
|00001e10| 67 6c 6f 62 61 6c 2d 74 | 6f 2d 6c 6f 63 61 6c 29 |global-t|o-local)|
|00001e20| 0d 20 20 3b 3b 20 46 72 | 6f 6d 20 22 71 75 69 63 |. ;; Fr|om "quic|
|00001e30| 6b 64 72 61 77 2e 6c 69 | 73 70 22 20 3a 0d 20 20 |kdraw.li|sp" :. |
|00001e40| 28 64 65 66 6d 65 74 68 | 6f 64 20 67 6c 6f 62 61 |(defmeth|od globa|
|00001e50| 6c 2d 74 6f 2d 6c 6f 63 | 61 6c 20 28 28 76 69 65 |l-to-loc|al ((vie|
|00001e60| 77 20 73 69 6d 70 6c 65 | 2d 76 69 65 77 29 20 68 |w simple|-view) h|
|00001e70| 20 26 6f 70 74 69 6f 6e | 61 6c 20 76 29 0d 20 20 | &option|al v). |
|00001e80| 20 20 28 77 69 74 68 2d | 66 6f 63 75 73 65 64 2d | (with-|focused-|
|00001e90| 76 69 65 77 20 76 69 65 | 77 0d 20 20 20 20 20 20 |view vie|w. |
|00001ea0| 28 72 6c 65 74 20 28 28 | 70 20 3a 70 6f 69 6e 74 |(rlet ((|p :point|
|00001eb0| 29 29 0d 20 20 20 20 20 | 20 20 20 28 25 70 75 74 |)). | (%put|
|00001ec0| 2d 6c 6f 6e 67 20 70 20 | 28 6d 61 6b 65 2d 70 6f |-long p |(make-po|
|00001ed0| 69 6e 74 20 68 20 76 29 | 29 0d 20 20 20 20 20 20 |int h v)|). |
|00001ee0| 20 20 28 23 5f 47 6c 6f | 62 61 6c 54 6f 4c 6f 63 | (#_Glo|balToLoc|
|00001ef0| 61 6c 20 70 29 0d 20 20 | 20 20 20 20 20 20 28 25 |al p). | (%|
|00001f00| 67 65 74 2d 6c 6f 6e 67 | 20 70 29 29 29 29 29 0d |get-long| p))))).|
|00001f10| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 69 6e 76 |..(defme|thod inv|
|00001f20| 65 72 74 2d 64 72 6f 70 | 2d 68 69 67 68 6c 69 67 |ert-drop|-highlig|
|00001f30| 68 74 20 28 28 76 69 65 | 77 20 66 72 65 64 2d 6d |ht ((vie|w fred-m|
|00001f40| 69 78 69 6e 29 20 28 6f | 62 6a 65 63 74 20 74 29 |ixin) (o|bject t)|
|00001f50| 20 28 70 74 2d 67 6c 6f | 62 61 6c 20 69 6e 74 65 | (pt-glo|bal inte|
|00001f60| 67 65 72 29 29 0d 20 20 | 22 49 6e 76 65 72 74 20 |ger)). |"Invert |
|00001f70| 61 20 76 65 72 74 69 63 | 61 6c 20 62 61 72 20 61 |a vertic|al bar a|
|00001f80| 74 20 76 69 65 77 27 73 | 20 62 75 66 66 65 72 20 |t view's| buffer |
|00001f90| 70 6f 73 69 74 69 6f 6e | 20 63 6f 72 72 65 73 70 |position| corresp|
|00001fa0| 6f 6e 64 69 6e 67 20 74 | 6f 0d 70 74 2d 67 6c 6f |onding t|o.pt-glo|
|00001fb0| 62 61 6c 2e 22 0d 20 20 | 3b 3b 0d 20 20 28 6c 65 |bal.". |;;. (le|
|00001fc0| 74 2a 20 28 28 69 6e 74 | 2d 69 6e 64 65 78 20 28 |t* ((int|-index (|
|00001fd0| 66 72 65 64 2d 70 6f 69 | 6e 74 2d 70 6f 73 69 74 |fred-poi|nt-posit|
|00001fe0| 69 6f 6e 20 76 69 65 77 | 20 28 67 6c 6f 62 61 6c |ion view| (global|
|00001ff0| 2d 74 6f 2d 6c 6f 63 61 | 6c 20 76 69 65 77 20 70 |-to-loca|l view p|
|00002000| 74 2d 67 6c 6f 62 61 6c | 29 29 29 0d 20 20 20 20 |t-global|))). |
|00002010| 20 20 20 20 20 28 69 6e | 74 2d 70 6f 73 2d 68 6f | (in|t-pos-ho|
|00002020| 72 69 7a 6f 6e 74 61 6c | 2d 62 6f 74 74 6f 6d 20 |rizontal|-bottom |
|00002030| 28 66 72 65 64 2d 68 70 | 6f 73 20 76 69 65 77 20 |(fred-hp|os view |
|00002040| 69 6e 74 2d 69 6e 64 65 | 78 29 29 0d 20 20 20 20 |int-inde|x)). |
|00002050| 20 20 20 20 20 28 69 6e | 74 2d 70 6f 73 2d 76 65 | (in|t-pos-ve|
|00002060| 72 74 69 63 61 6c 20 28 | 66 72 65 64 2d 76 70 6f |rtical (|fred-vpo|
|00002070| 73 20 76 69 65 77 20 69 | 6e 74 2d 69 6e 64 65 78 |s view i|nt-index|
|00002080| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 69 6e 74 |)). | (int|
|00002090| 2d 68 65 69 67 68 74 2d | 6c 69 6e 65 20 28 2d 20 |-height-|line (- |
|000020a0| 28 66 72 65 64 2d 6c 69 | 6e 65 2d 76 70 6f 73 20 |(fred-li|ne-vpos |
|000020b0| 76 69 65 77 20 31 29 0d | 20 20 20 20 20 20 20 20 |view 1).| |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020d0| 20 20 20 20 20 28 66 72 | 65 64 2d 6c 69 6e 65 2d | (fr|ed-line-|
|000020e0| 76 70 6f 73 20 76 69 65 | 77 20 30 29 29 29 29 0d |vpos vie|w 0)))).|
|000020f0| 20 20 20 20 28 77 69 74 | 68 2d 66 6f 63 75 73 65 | (wit|h-focuse|
|00002100| 64 2d 76 69 65 77 20 76 | 69 65 77 0d 20 20 20 20 |d-view v|iew. |
|00002110| 20 20 28 77 69 74 68 2d | 70 65 6e 2d 73 61 76 65 | (with-|pen-save|
|00002120| 64 0d 20 20 20 20 20 20 | 20 20 28 23 5f 50 65 6e |d. | (#_Pen|
|00002130| 4d 6f 64 65 20 28 70 6f | 73 69 74 69 6f 6e 20 3a |Mode (po|sition :|
|00002140| 50 41 54 58 4f 52 20 2a | 70 65 6e 2d 6d 6f 64 65 |PATXOR *|pen-mode|
|00002150| 73 2a 29 29 0d 20 20 20 | 20 20 20 20 20 3b 3b 20 |s*)). | ;; |
|00002160| 23 5f 50 65 6e 50 61 74 | 20 4e 65 65 64 65 64 20 |#_PenPat| Needed |
|00002170| 6f 6e 6c 79 20 66 6f 72 | 20 6f 62 6a 65 63 74 2d |only for| object-|
|00002180| 66 72 65 64 2d 64 69 61 | 6c 6f 67 2d 69 74 65 6d |fred-dia|log-item|
|00002190| 73 2c 20 77 68 69 63 68 | 0d 20 20 20 20 20 20 20 |s, which|. |
|000021a0| 20 3b 3b 20 20 69 6e 76 | 65 72 74 65 64 20 69 6e | ;; inv|erted in|
|000021b0| 20 2a 67 72 61 79 2d 70 | 61 74 74 65 72 6e 2a 20 | *gray-p|attern* |
|000021c0| 28 66 72 65 64 2d 6d 69 | 78 69 6e 73 20 77 6f 72 |(fred-mi|xins wor|
|000021d0| 6b 65 64 20 66 69 6e 65 | 29 3a 0d 20 20 20 20 20 |ked fine|):. |
|000021e0| 20 20 20 28 23 5f 50 65 | 6e 50 61 74 20 2a 62 6c | (#_Pe|nPat *bl|
|000021f0| 61 63 6b 2d 70 61 74 74 | 65 72 6e 2a 29 0d 20 20 |ack-patt|ern*). |
|00002200| 20 20 20 20 20 20 28 23 | 5f 4d 6f 76 65 54 6f 20 | (#|_MoveTo |
|00002210| 69 6e 74 2d 70 6f 73 2d | 68 6f 72 69 7a 6f 6e 74 |int-pos-|horizont|
|00002220| 61 6c 2d 62 6f 74 74 6f | 6d 20 69 6e 74 2d 70 6f |al-botto|m int-po|
|00002230| 73 2d 76 65 72 74 69 63 | 61 6c 29 0d 20 20 20 20 |s-vertic|al). |
|00002240| 20 20 20 20 28 23 5f 4c | 69 6e 65 20 30 20 28 2d | (#_L|ine 0 (-|
|00002250| 20 69 6e 74 2d 68 65 69 | 67 68 74 2d 6c 69 6e 65 | int-hei|ght-line|
|00002260| 29 29 29 29 29 29 0d 0d | 0d 28 64 65 66 6d 65 74 |))))))..|.(defmet|
|00002270| 68 6f 64 20 72 65 63 65 | 69 76 65 2d 64 72 6f 70 |hod rece|ive-drop|
|00002280| 20 28 28 76 69 65 77 20 | 66 72 65 64 2d 6d 69 78 | ((view |fred-mix|
|00002290| 69 6e 29 20 28 6f 62 6a | 65 63 74 20 74 29 20 28 |in) (obj|ect t) (|
|000022a0| 70 74 2d 67 6c 6f 62 61 | 6c 20 69 6e 74 65 67 65 |pt-globa|l intege|
|000022b0| 72 29 29 0d 20 20 3b 3b | 0d 20 20 28 65 64 2d 69 |r)). ;;|. (ed-i|
|000022c0| 6e 73 65 72 74 2d 77 69 | 74 68 2d 75 6e 64 6f 20 |nsert-wi|th-undo |
|000022d0| 76 69 65 77 20 28 66 6f | 72 6d 61 74 20 6e 69 6c |view (fo|rmat nil|
|000022e0| 20 22 7e 41 22 20 6f 62 | 6a 65 63 74 29 0d 20 20 | "~A" ob|ject). |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002300| 20 20 20 20 20 28 66 72 | 65 64 2d 70 6f 69 6e 74 | (fr|ed-point|
|00002310| 2d 70 6f 73 69 74 69 6f | 6e 20 76 69 65 77 20 28 |-positio|n view (|
|00002320| 67 6c 6f 62 61 6c 2d 74 | 6f 2d 6c 6f 63 61 6c 20 |global-t|o-local |
|00002330| 76 69 65 77 20 70 74 2d | 67 6c 6f 62 61 6c 29 29 |view pt-|global))|
|00002340| 29 0d 20 20 28 66 72 65 | 64 2d 75 70 64 61 74 65 |). (fre|d-update|
|00002350| 20 76 69 65 77 29 29 0d | 0d 0d 3b 3b 3b 3d 3d 3d | view)).|..;;;===|
|00002360| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 3b 3b |========|=====.;;|
|000023a0| 3b 20 44 65 66 69 6e 65 | 20 73 6f 6d 65 20 68 61 |; Define| some ha|
|000023b0| 6e 64 79 20 64 72 6f 70 | 2d 68 69 67 68 6c 69 67 |ndy drop|-highlig|
|000023c0| 68 74 20 66 75 6e 63 74 | 69 6f 6e 73 2e 0d 3b 3b |ht funct|ions..;;|
|000023d0| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|000023e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002410| 3d 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 69 6e |=..(defm|ethod in|
|00002420| 76 65 72 74 2d 69 6e 73 | 69 64 65 2d 67 72 61 79 |vert-ins|ide-gray|
|00002430| 2d 66 72 61 6d 65 20 28 | 28 76 69 65 77 20 73 69 |-frame (|(view si|
|00002440| 6d 70 6c 65 2d 76 69 65 | 77 29 29 0d 20 20 22 49 |mple-vie|w)). "I|
|00002450| 6e 76 65 72 74 73 20 61 | 20 67 72 61 79 20 66 72 |nverts a| gray fr|
|00002460| 61 6d 65 20 6a 75 73 74 | 20 69 6e 73 69 64 65 20 |ame just| inside |
|00002470| 76 69 65 77 2e 20 28 48 | 65 61 64 61 63 68 65 20 |view. (H|eadache |
|00002480| 69 66 20 69 74 27 73 20 | 74 68 69 63 6b 21 29 22 |if it's |thick!)"|
|00002490| 0d 20 20 28 64 65 63 6c | 61 72 65 20 28 6f 70 74 |. (decl|are (opt|
|000024a0| 69 6d 69 7a 65 20 73 70 | 65 65 64 29 29 0d 20 20 |imize sp|eed)). |
|000024b0| 3b 3b 0d 20 20 28 6c 65 | 74 2a 20 28 28 70 74 2d |;;. (le|t* ((pt-|
|000024c0| 74 6f 70 2d 6c 65 66 74 | 20 23 40 28 30 20 30 29 |top-left| #@(0 0)|
|000024d0| 29 0d 20 20 20 20 20 20 | 20 20 20 28 70 74 2d 62 |). | (pt-b|
|000024e0| 6f 74 74 6f 6d 2d 72 69 | 67 68 74 20 28 76 69 65 |ottom-ri|ght (vie|
|000024f0| 77 2d 73 69 7a 65 20 76 | 69 65 77 29 29 29 0d 20 |w-size v|iew))). |
|00002500| 20 20 20 28 72 6c 65 74 | 20 28 28 72 65 63 74 20 | (rlet| ((rect |
|00002510| 3a 72 65 63 74 20 3a 74 | 6f 70 4c 65 66 74 20 70 |:rect :t|opLeft p|
|00002520| 74 2d 74 6f 70 2d 6c 65 | 66 74 20 3a 62 6f 74 74 |t-top-le|ft :bott|
|00002530| 6f 6d 52 69 67 68 74 20 | 70 74 2d 62 6f 74 74 6f |omRight |pt-botto|
|00002540| 6d 2d 72 69 67 68 74 29 | 29 0d 20 20 20 20 20 20 |m-right)|). |
|00002550| 28 77 69 74 68 2d 66 6f | 63 75 73 65 64 2d 76 69 |(with-fo|cused-vi|
|00002560| 65 77 20 76 69 65 77 0d | 20 20 20 20 20 20 20 20 |ew view.| |
|00002570| 28 77 69 74 68 2d 70 65 | 6e 2d 73 61 76 65 64 0d |(with-pe|n-saved.|
|00002580| 20 20 20 20 20 20 20 20 | 20 20 28 23 5f 50 65 6e | | (#_Pen|
|00002590| 4d 6f 64 65 20 28 70 6f | 73 69 74 69 6f 6e 20 3a |Mode (po|sition :|
|000025a0| 50 41 54 58 4f 52 20 2a | 70 65 6e 2d 6d 6f 64 65 |PATXOR *|pen-mode|
|000025b0| 73 2a 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 28 |s*)). | (|
|000025c0| 23 5f 50 65 6e 50 61 74 | 20 2a 67 72 61 79 2d 70 |#_PenPat| *gray-p|
|000025d0| 61 74 74 65 72 6e 2a 29 | 0d 20 20 20 20 20 20 20 |attern*)|. |
|000025e0| 20 20 20 28 23 5f 50 65 | 6e 53 69 7a 65 20 33 20 | (#_Pe|nSize 3 |
|000025f0| 33 29 0d 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |3). | (#_|
|00002600| 46 72 61 6d 65 52 65 63 | 74 20 72 65 63 74 29 29 |FrameRec|t rect))|
|00002610| 29 29 29 29 0d 0d 0d 3b | 3b 3b 3d 3d 3d 3d 3d 3d |))))...;|;;======|
|00002620| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002630| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 3b 3b 3b 20 44 |========|==.;;; D|
|00002660| 6f 6e 65 2e 0d 3b 3b 3b | 3d 3d 3d 3d 3d 3d 3d 3d |one..;;;|========|
|00002670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000026a0| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 28 70 72 6f 76 69 |========|..(provi|
|000026b0| 64 65 20 22 4f 42 4a 45 | 43 54 2d 44 52 4f 50 50 |de "OBJE|CT-DROPP|
|000026c0| 45 52 22 29 0d 0d 0d 23 | 7c 0d 3b 3b 3b 20 53 65 |ER")...#||.;;; Se|
|000026d0| 65 20 6f 62 6a 65 63 74 | 2d 46 44 49 2d 64 72 6f |e object|-FDI-dro|
|000026e0| 70 2d 67 6c 75 65 2e 6c | 69 73 70 20 66 6f 72 20 |p-glue.l|isp for |
|000026f0| 61 6e 6f 74 68 65 72 20 | 65 78 61 6d 70 6c 65 2e |another |example.|
|00002700| 0d 0d 3b 3b 3b 20 44 65 | 66 69 6e 65 20 73 61 6d |..;;; De|fine sam|
|00002710| 70 6c 65 20 63 6f 64 65 | 2e 0d 0d 3b 3b 3b 0d 3b |ple code|...;;;.;|
|00002720| 3b 3b 20 4d 61 6b 65 20 | 69 74 65 6d 73 20 74 68 |;; Make |items th|
|00002730| 61 74 20 63 61 6e 20 73 | 74 61 72 74 20 61 6e 64 |at can s|tart and|
|00002740| 20 72 65 63 65 69 76 65 | 20 64 72 6f 70 73 2e 0d | receive| drops..|
|00002750| 3b 3b 3b 0d 0d 28 64 65 | 66 63 6c 61 73 73 20 72 |;;;..(de|fclass r|
|00002760| 65 63 65 69 76 65 2d 62 | 75 74 74 6f 6e 2d 64 69 |eceive-b|utton-di|
|00002770| 61 6c 6f 67 2d 69 74 65 | 6d 20 28 62 75 74 74 6f |alog-ite|m (butto|
|00002780| 6e 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 29 0d 20 |n-dialog|-item). |
|00002790| 20 28 28 73 79 6d 2d 66 | 75 6e 63 74 69 6f 6e 0d | ((sym-f|unction.|
|000027a0| 20 20 20 20 3a 61 63 63 | 65 73 73 6f 72 20 73 79 | :acc|essor sy|
|000027b0| 6d 2d 66 75 6e 63 74 69 | 6f 6e 2d 72 62 64 69 0d |m-functi|on-rbdi.|
|000027c0| 20 20 20 20 3a 69 6e 69 | 74 61 72 67 20 3a 73 79 | :ini|targ :sy|
|000027d0| 6d 2d 66 75 6e 63 74 69 | 6f 6e 0d 20 20 20 20 3a |m-functi|on. :|
|000027e0| 69 6e 69 74 66 6f 72 6d | 20 27 64 65 73 63 72 69 |initform| 'descri|
|000027f0| 62 65 0d 20 20 20 20 3a | 74 79 70 65 20 73 79 6d |be. :|type sym|
|00002800| 62 6f 6c 0d 20 20 20 20 | 3a 64 6f 63 75 6d 65 6e |bol. |:documen|
|00002810| 74 61 74 69 6f 6e 20 22 | 41 20 73 79 6d 62 6f 6c |tation "|A symbol|
|00002820| 20 77 69 74 68 20 61 20 | 66 75 6e 63 74 69 6f 6e | with a |function|
|00002830| 20 64 65 66 69 6e 69 74 | 69 6f 6e 2e 20 54 68 65 | definit|ion. The|
|00002840| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 69 73 0d 72 | definit|ion is.r|
|00002850| 75 6e 20 62 79 20 72 65 | 63 65 69 76 65 2d 64 72 |un by re|ceive-dr|
|00002860| 6f 70 20 6f 6e 20 74 68 | 65 20 6f 62 6a 65 63 74 |op on th|e object|
|00002870| 20 64 72 6f 70 70 65 64 | 2e 22 29 29 0d 20 20 28 | dropped|.")). (|
|00002880| 3a 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 22 |:documen|tation "|
|00002890| 52 75 6e 73 20 73 79 6d | 2d 66 75 6e 63 74 69 6f |Runs sym|-functio|
|000028a0| 6e 2d 72 62 64 69 20 6f | 6e 20 64 72 6f 70 70 65 |n-rbdi o|n droppe|
|000028b0| 64 20 69 74 65 6d 73 2e | 22 29 29 0d 0d 28 64 65 |d items.|"))..(de|
|000028c0| 66 6d 65 74 68 6f 64 20 | 69 6e 69 74 69 61 6c 69 |fmethod |initiali|
|000028d0| 7a 65 2d 69 6e 73 74 61 | 6e 63 65 20 3a 61 66 74 |ze-insta|nce :aft|
|000028e0| 65 72 20 28 28 72 65 63 | 65 69 76 65 2d 62 75 74 |er ((rec|eive-but|
|000028f0| 74 6f 6e 2d 64 69 61 6c | 6f 67 2d 69 74 65 6d 20 |ton-dial|og-item |
|00002900| 72 65 63 65 69 76 65 2d | 62 75 74 74 6f 6e 2d 64 |receive-|button-d|
|00002910| 69 61 6c 6f 67 2d 69 74 | 65 6d 29 0d 20 20 20 20 |ialog-it|em). |
|00002920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002940| 20 26 6b 65 79 20 64 69 | 61 6c 6f 67 2d 69 74 65 | &key di|alog-ite|
|00002950| 6d 2d 74 65 78 74 29 0d | 20 20 28 75 6e 6c 65 73 |m-text).| (unles|
|00002960| 73 20 64 69 61 6c 6f 67 | 2d 69 74 65 6d 2d 74 65 |s dialog|-item-te|
|00002970| 78 74 0d 20 20 20 20 28 | 73 65 74 2d 64 69 61 6c |xt. (|set-dial|
|00002980| 6f 67 2d 69 74 65 6d 2d | 74 65 78 74 0d 20 20 20 |og-item-|text. |
|00002990| 20 20 72 65 63 65 69 76 | 65 2d 62 75 74 74 6f 6e | receiv|e-button|
|000029a0| 2d 64 69 61 6c 6f 67 2d | 69 74 65 6d 0d 20 20 20 |-dialog-|item. |
|000029b0| 20 20 28 66 6f 72 6d 61 | 74 20 6e 69 6c 20 22 7e | (forma|t nil "~|
|000029c0| 3a 28 7e 41 7e 29 22 20 | 28 73 79 6d 2d 66 75 6e |:(~A~)" |(sym-fun|
|000029d0| 63 74 69 6f 6e 2d 72 62 | 64 69 20 72 65 63 65 69 |ction-rb|di recei|
|000029e0| 76 65 2d 62 75 74 74 6f | 6e 2d 64 69 61 6c 6f 67 |ve-butto|n-dialog|
|000029f0| 2d 69 74 65 6d 29 29 29 | 29 29 0d 0d 28 64 65 66 |-item)))|))..(def|
|00002a00| 6d 65 74 68 6f 64 20 66 | 2d 63 61 6e 2d 72 65 63 |method f|-can-rec|
|00002a10| 65 69 76 65 2d 64 72 6f | 70 20 28 28 76 69 65 77 |eive-dro|p ((view|
|00002a20| 20 72 65 63 65 69 76 65 | 2d 62 75 74 74 6f 6e 2d | receive|-button-|
|00002a30| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 29 20 28 6f 62 |dialog-i|tem) (ob|
|00002a40| 6a 65 63 74 20 74 29 20 | 28 70 74 2d 67 6c 6f 62 |ject t) |(pt-glob|
|00002a50| 61 6c 20 69 6e 74 65 67 | 65 72 29 29 0d 20 20 74 |al integ|er)). t|
|00002a60| 29 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 69 6e |)..(defm|ethod in|
|00002a70| 76 65 72 74 2d 64 72 6f | 70 2d 68 69 67 68 6c 69 |vert-dro|p-highli|
|00002a80| 67 68 74 20 28 28 76 69 | 65 77 20 72 65 63 65 69 |ght ((vi|ew recei|
|00002a90| 76 65 2d 62 75 74 74 6f | 6e 2d 64 69 61 6c 6f 67 |ve-butto|n-dialog|
|00002aa0| 2d 69 74 65 6d 29 20 28 | 6f 62 6a 65 63 74 20 74 |-item) (|object t|
|00002ab0| 29 20 28 70 74 2d 67 6c | 6f 62 61 6c 20 69 6e 74 |) (pt-gl|obal int|
|00002ac0| 65 67 65 72 29 29 0d 20 | 20 3b 3b 20 49 6e 76 65 |eger)). | ;; Inve|
|00002ad0| 72 74 20 61 20 67 72 61 | 79 20 66 72 61 6d 65 20 |rt a gra|y frame |
|00002ae0| 6a 75 73 74 20 69 6e 73 | 69 64 65 20 76 69 65 77 |just ins|ide view|
|00002af0| 2e 20 28 48 65 61 64 61 | 63 68 65 20 69 66 20 69 |. (Heada|che if i|
|00002b00| 74 27 73 20 74 68 69 63 | 6b 21 29 0d 20 20 28 69 |t's thic|k!). (i|
|00002b10| 6e 76 65 72 74 2d 69 6e | 73 69 64 65 2d 67 72 61 |nvert-in|side-gra|
|00002b20| 79 2d 66 72 61 6d 65 20 | 76 69 65 77 29 29 0d 0d |y-frame |view))..|
|00002b30| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 72 65 63 65 |.(defmet|hod rece|
|00002b40| 69 76 65 2d 64 72 6f 70 | 20 28 28 76 69 65 77 20 |ive-drop| ((view |
|00002b50| 72 65 63 65 69 76 65 2d | 62 75 74 74 6f 6e 2d 64 |receive-|button-d|
|00002b60| 69 61 6c 6f 67 2d 69 74 | 65 6d 29 20 28 6f 62 6a |ialog-it|em) (obj|
|00002b70| 65 63 74 20 74 29 20 28 | 70 74 2d 67 6c 6f 62 61 |ect t) (|pt-globa|
|00002b80| 6c 20 69 6e 74 65 67 65 | 72 29 29 0d 20 20 28 66 |l intege|r)). (f|
|00002b90| 75 6e 63 61 6c 6c 20 28 | 73 79 6d 62 6f 6c 2d 66 |uncall (|symbol-f|
|00002ba0| 75 6e 63 74 69 6f 6e 20 | 28 73 79 6d 2d 66 75 6e |unction |(sym-fun|
|00002bb0| 63 74 69 6f 6e 2d 72 62 | 64 69 20 76 69 65 77 29 |ction-rb|di view)|
|00002bc0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 6f 62 6a |). | obj|
|00002bd0| 65 63 74 29 29 0d 0d 0d | 28 64 65 66 75 6e 20 74 |ect))...|(defun t|
|00002be0| 65 73 74 2d 64 72 6f 70 | 70 65 72 20 28 29 0d 20 |est-drop|per (). |
|00002bf0| 20 28 6c 65 74 2a 20 28 | 28 77 69 6e 64 6f 77 20 | (let* (|(window |
|00002c00| 28 6d 61 6b 65 2d 69 6e | 73 74 61 6e 63 65 20 27 |(make-in|stance '|
|00002c10| 77 69 6e 64 6f 77 0d 20 | 20 20 20 20 20 20 20 20 |window. | |
|00002c20| 20 20 20 20 20 20 20 20 | 20 20 3a 77 69 6e 64 6f | | :windo|
|00002c30| 77 2d 74 69 74 6c 65 20 | 22 54 65 73 74 20 44 72 |w-title |"Test Dr|
|00002c40| 6f 70 70 65 72 22 0d 20 | 20 20 20 20 20 20 20 20 |opper". | |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 3a 76 69 65 77 2d | | :view-|
|00002c60| 70 6f 73 69 74 69 6f 6e | 20 23 40 28 34 37 35 20 |position| #@(475 |
|00002c70| 34 31 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |41). | |
|00002c80| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 73 69 7a | :|view-siz|
|00002c90| 65 20 23 40 28 31 36 39 | 20 35 38 29 29 29 0d 20 |e #@(169| 58))). |
|00002ca0| 20 20 20 20 20 20 20 20 | 28 73 74 61 72 74 2d 64 | |(start-d|
|00002cb0| 69 61 6c 6f 67 2d 69 74 | 65 6d 20 28 6d 61 6b 65 |ialog-it|em (make|
|00002cc0| 2d 69 6e 73 74 61 6e 63 | 65 20 27 62 75 74 74 6f |-instanc|e 'butto|
|00002cd0| 6e 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 0d 20 20 |n-dialog|-item. |
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 76 69 65 | | :vie|
|00002d00| 77 2d 73 69 7a 65 20 23 | 40 28 38 30 20 32 30 29 |w-size #|@(80 20)|
|00002d10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00002d30| 76 69 65 77 2d 70 6f 73 | 69 74 69 6f 6e 20 23 40 |view-pos|ition #@|
|00002d40| 28 35 20 35 29 0d 20 20 | 20 20 20 20 20 20 20 20 |(5 5). | |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d60| 20 20 20 20 3a 76 69 65 | 77 2d 66 6f 6e 74 20 27 | :vie|w-font '|
|00002d70| 28 22 47 65 6e 65 76 61 | 22 20 39 29 0d 20 20 20 |("Geneva|" 9). |
|00002d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d90| 20 20 20 20 20 20 20 20 | 20 20 20 3a 64 69 61 6c | | :dial|
|00002da0| 6f 67 2d 69 74 65 6d 2d | 74 65 78 74 20 22 53 74 |og-item-|text "St|
|00002db0| 61 72 74 20 54 72 61 63 | 6b 69 6e 67 22 29 29 0d |art Trac|king")).|
|00002dc0| 20 20 20 20 20 20 20 20 | 20 28 72 65 63 65 69 76 | | (receiv|
|00002dd0| 65 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 20 28 6d |e-dialog|-item (m|
|00002de0| 61 6b 65 2d 69 6e 73 74 | 61 6e 63 65 20 27 72 65 |ake-inst|ance 're|
|00002df0| 63 65 69 76 65 2d 62 75 | 74 74 6f 6e 2d 64 69 61 |ceive-bu|tton-dia|
|00002e00| 6c 6f 67 2d 69 74 65 6d | 0d 20 20 20 20 20 20 20 |log-item|. |
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e20| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 73 | | :view-s|
|00002e30| 69 7a 65 20 23 40 28 38 | 30 20 32 30 29 0d 20 20 |ize #@(8|0 20). |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 76 | | :v|
|00002e60| 69 65 77 2d 70 6f 73 69 | 74 69 6f 6e 20 23 40 28 |iew-posi|tion #@(|
|00002e70| 32 30 20 33 30 29 0d 20 | 20 20 20 20 20 20 20 20 |20 30). | |
|00002e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e90| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 66 6f 6e | :|view-fon|
|00002ea0| 74 20 27 28 22 47 65 6e | 65 76 61 22 20 39 29 29 |t '("Gen|eva" 9))|
|00002eb0| 29 29 0d 20 20 20 20 28 | 61 64 64 2d 73 75 62 76 |)). (|add-subv|
|00002ec0| 69 65 77 73 20 77 69 6e | 64 6f 77 20 73 74 61 72 |iews win|dow star|
|00002ed0| 74 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 20 72 65 |t-dialog|-item re|
|00002ee0| 63 65 69 76 65 2d 64 69 | 61 6c 6f 67 2d 69 74 65 |ceive-di|alog-ite|
|00002ef0| 6d 29 0d 20 20 20 20 3b | 3b 0d 20 20 20 20 28 64 |m). ;|;. (d|
|00002f00| 65 66 6d 65 74 68 6f 64 | 20 76 69 65 77 2d 63 6c |efmethod| view-cl|
|00002f10| 69 63 6b 2d 65 76 65 6e | 74 2d 68 61 6e 64 6c 65 |ick-even|t-handle|
|00002f20| 72 20 28 28 76 69 65 77 | 20 28 65 71 6c 20 73 74 |r ((view| (eql st|
|00002f30| 61 72 74 2d 64 69 61 6c | 6f 67 2d 69 74 65 6d 29 |art-dial|og-item)|
|00002f40| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|00002f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 77 68 65 72 65 | | where|
|00002f70| 29 0d 20 20 20 20 20 20 | 3b 3b 0d 20 20 20 20 20 |). |;;. |
|00002f80| 20 28 74 72 61 63 6b 2d | 6d 6f 75 73 65 2d 66 6f | (track-|mouse-fo|
|00002f90| 72 2d 64 72 6f 70 70 69 | 6e 67 0d 20 20 20 20 20 |r-droppi|ng. |
|00002fa0| 20 20 76 69 65 77 20 76 | 69 65 77 20 28 6c 6f 63 | view v|iew (loc|
|00002fb0| 61 6c 2d 74 6f 2d 67 6c | 6f 62 61 6c 20 28 76 69 |al-to-gl|obal (vi|
|00002fc0| 65 77 2d 63 6f 6e 74 61 | 69 6e 65 72 20 76 69 65 |ew-conta|iner vie|
|00002fd0| 77 29 20 77 68 65 72 65 | 29 29 29 0d 20 20 20 20 |w) where|))). |
|00002fe0| 77 69 6e 64 6f 77 29 29 | 0d 0d 7c 23 00 00 00 00 |window))|..|#....|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 01 00 00 00 02 85 | 00 00 01 85 00 00 00 52 |........|.......R|
|00003010| a8 ee 70 38 bf f5 ca 37 | 02 72 38 8d 0c a8 8d 15 |..p8...7|.r8.....|
|00003020| 84 26 40 ce da 8d 15 6a | 5e c3 70 06 c0 03 d0 8c |.&@....j|^.p.....|
|00003030| 13 6f 62 6a 65 63 74 2d | 64 72 6f 70 70 65 72 2e |.object-|dropper.|
|00003040| 6c 69 73 70 02 00 00 00 | 54 45 58 54 43 43 4c 32 |lisp....|TEXTCCL2|
|00003050| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 00 00 60 |..TEXTCC|L2.....`|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 a6 a1 45 c0 00 00 | 2f 6c 00 00 02 d7 37 01 |....E...|/l....7.|
|00003080| c5 cb dd f4 8b f0 89 ab | f5 92 1d 01 a9 22 85 a1 |........|....."..|
|00003090| 66 22 22 50 20 91 60 1c | a1 67 18 2d 01 ee f6 8d |f""P .`.|.g.-....|
|000030a0| ea ee df 20 10 8d ea 20 | 5e 20 80 a8 eb b3 ae cf |... ... |^ ......|
|000030b0| 6a e6 00 00 00 1c 0b 0f | 07 6f 1d 87 01 00 00 00 |j.......|.o......|
|000030c0| 00 01 01 8d 10 00 48 7a | cd 8d 0e f4 60 14 42 a6 |......Hz|....`.B.|
|000030d0| db 00 06 a6 80 00 70 1f | bf 8d 0e 8c a6 a8 fd cf |......p.|........|
|000030e0| 42 a6 db 00 06 40 00 70 | 1f bf 8d 0e 8c a6 a8 fd |B....@.p|........|
|000030f0| bb 83 02 f8 f3 f5 0a a6 | 00 ad d2 24 00 8d c3 af |........|...$....|
|00003100| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 06 | 00 08 00 29 00 03 01 de |........|...)....|
|00003130| 02 00 00 29 00 03 01 de | 02 00 00 00 00 00 00 00 |...)....|........|
|00003140| 06 13 00 00 06 13 00 00 | 04 89 01 00 00 00 00 17 |........|........|
|00003150| 00 00 06 4d 6f 6e 61 63 | 6f 06 4d 6f 6e 61 63 6f |...Monac|o.Monaco|
|00003160| 06 47 65 6e 65 76 61 00 | 00 01 12 00 03 00 04 09 |.Geneva.|........|
|00003170| 00 00 04 09 02 00 03 09 | 01 01 00 00 00 02 00 01 |........|........|
|00003180| 84 01 00 01 88 03 00 01 | a8 01 00 01 c0 03 00 04 |........|........|
|00003190| d0 01 00 04 e4 03 00 04 | e9 01 00 05 01 03 00 05 |........|........|
|000031a0| c9 01 00 05 e1 03 00 07 | fc 01 00 08 0e 03 00 08 |........|........|
|000031b0| 88 01 00 08 9a 03 00 08 | fa 01 00 09 0f 03 00 0a |........|........|
|000031c0| 03 01 00 0a 18 03 00 0a | 9c 01 00 0a a8 03 00 0b |........|........|
|000031d0| 3e 01 00 0b 4a 03 00 0c | 83 01 00 0c 97 03 00 0d |>...J...|........|
|000031e0| d1 01 00 0d e5 03 00 10 | 38 01 00 10 50 03 00 12 |........|8...P...|
|000031f0| 7e 01 00 12 96 02 00 16 | 75 01 00 16 78 02 00 16 |~.......|u...x...|
|00003200| 79 01 00 16 7b 02 00 16 | a5 01 00 16 a9 03 00 1b |y...{...|........|
|00003210| 51 01 00 1b 60 03 00 1c | d6 01 00 1c e8 03 00 1d |Q...`...|........|
|00003220| cb 01 00 1d da 03 00 1e | 9d 01 00 1e b2 03 00 21 |........|.......!|
|00003230| f4 01 00 22 00 03 00 23 | 9e 01 00 23 b6 03 00 26 |..."...#|...#...&|
|00003240| df 01 00 26 f9 03 00 27 | 2e 01 00 27 3f 03 00 28 |...&...'|...'?..(|
|00003250| 48 01 00 28 5b 03 00 29 | 87 01 00 29 99 03 00 29 |H..([..)|...)...)|
|00003260| ee 01 00 2a 03 03 00 2a | bc 01 00 2a c8 03 00 2b |...*...*|...*...+|
|00003270| 5f 01 00 2b 6b 03 00 2e | 89 01 00 2e a1 03 00 37 |_..+k...|.......7|
|00003280| 9a 01 00 37 b2 00 00 01 | 00 00 00 02 85 00 00 01 |...7....|........|
|00003290| 85 00 00 00 52 00 7c 19 | 74 08 d2 00 00 00 1c 00 |....R.|.|t.......|
|000032a0| 52 00 01 46 52 45 44 00 | 01 00 12 4d 50 53 52 00 |R..FRED.|...MPSR.|
|000032b0| 00 00 2a 00 02 ff ff 00 | 00 00 67 00 00 00 00 00 |..*.....|..g.....|
|000032c0| 03 ff ff 00 00 00 4c 00 | 00 00 00 03 ed ff ff 00 |......L.|........|
|000032d0| 00 00 00 00 7d 0a 9c 00 | 00 00 00 00 00 00 00 00 |....}...|........|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
